home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d963.lha / SIOD / scm / index.scm < prev    next >
Text File  |  1993-02-22  |  683b  |  21 lines
  1. (define (insert-ord st l t)
  2.         (cond ((null? l) (append t (list st)))
  3.               ((string>? st (car l))
  4.                    (append t 
  5.                            (list st) 
  6.                            l))
  7.               (else (insert-ord st 
  8.                                 (cdr l) 
  9.                                 (append t 
  10.                                         (list (car l)))))))
  11.  
  12. (define l nil)
  13.  
  14. (define (ord-obl)
  15.         (for-each (lambda (x) 
  16.                           (set! l 
  17.                                 (insert-ord (symbol->string x) 
  18.                                             l 
  19.                                             nil)))
  20.                   (oblist)))
  21.